home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / 422mods.zip / WORMR.422 < prev    next >
Text File  |  1993-02-08  |  3KB  |  98 lines

  1. WHIP13.MOD
  2. Whiplash #1 @3651
  3. Wed Feb 03 07:42:09 1993
  4. ┌────────────────────────────────────────────────────────────────────────────┐
  5. │ Mod Name:       WHIP13.MOD      Mod Author:  Whiplash                      │
  6. │ Difficulty:     Easy                  Date:  February 1, 1993              │
  7. │ WWIV Version:   4.22                                                       │
  8. │ Description:    Access both WOMR .QWK and WOMR Eclipse off your main menu. │
  9. │                                                                            │
  10. └────────────────────────────────────────────────────────────────────────────┘
  11.  
  12. As most of you might realize, I have not released any of my mods in a long
  13. time.  Most of them are small and worthless, so I never released them, but
  14. someone told me I should release a few of my handy ones, so I am putting
  15. this one up today.
  16.  
  17. What this mod will do is when someone hits 'H' from the main menu, they will
  18. be given a menu to choose between WOMR .QWK and WOMR Eclipse and then it
  19. will go into that offline reader.
  20.  
  21. The new versions of these are on my board for download, if you wish to pick
  22. them up.
  23.  
  24.  
  25. Step #1:  Back up BBS.C.  This mod will not effect any other file.
  26.  
  27. Step #2:  Open up BBS.C and search for void mainmenu();
  28.  
  29. Step #3:  Enter this case statement somewhere with the rest:
  30.  
  31.       case 'H':
  32.         offline_menu();
  33.         break;
  34.  
  35. Step #4:  Block copy this void somewhere into BBS.C:
  36.  
  37.  
  38. void offline_menu(void)
  39. {
  40. char ch,s[81],s1[81],s2[81];
  41.  
  42.     nl();
  43.     nl();
  44.     npr("2Select Offline Reader:\r\n");
  45.     npr("112] 3WOMR 7QWK Offline Reader\r\n");
  46.     npr("122] 3WOMR 7Eclipse Offline Reader\r\n");
  47.      nl();
  48.      npr("1Which Choice? ");
  49.      sb(1,7);
  50.      ch=onek("12Q");
  51.        nl();
  52.        switch(ch) {
  53.       case 'Q':
  54.         break;
  55.       case '1':
  56.          npr("Please Standby...\r\n");
  57.          set_protect(0);
  58.          strcpy(s1,"WOMR-QWK %1");
  59.          strcpy(s2,create_chain_file("CHAIN.TXT"));
  60.          stuff_in(s,s1,s2,"","","","");
  61.          shrink_out(s,1,0,1,1);
  62.          break;
  63.       case '2':
  64.          npr("Please Standby...\r\n");
  65.          set_protect(0);
  66.          strcpy(s1,"WOMR %1");
  67.          strcpy(s2,create_chain_file("CHAIN.TXT"));
  68.          stuff_in(s,s1,s2,"","","","");
  69.          shrink_out(s,1,0,1,1);
  70.          break;
  71.      }
  72. }
  73.  
  74. Step #5:  Compile the BBS.
  75.  
  76. If you wish, you can make a seperate file in your GFILES directory for that
  77. menu, and make those strings external.  I personally hate external things,
  78. but I am an idiot, so it is not a problem.
  79.  
  80. Step #6:  Email me, and tell me how much you hate it, so I will stop putting
  81.           out such foolish trash.
  82.  
  83.  
  84. If it causes a solar eclipse, the ozone to explode, Mother Theresa to lose her
  85. virginity and makes John C. Holmes come back to life, it's your fault.
  86.  
  87. If you have any questions, email me:
  88. WWIVnet 1@3653
  89. SOLARnet 1@13651
  90. IceNET 1@3652
  91. RCnet 1@2
  92. TestNet 1@3650
  93. WWIVLink 1@13659
  94.  
  95. or call my sucky board:  Out Of Time, (316)/788-9495....
  96.  
  97. Well boys, that's it for this time... Z-ya......
  98.